object StopListForm: TStopListForm Left = 3 Top = 39 HelpContext = 190 BorderStyle = bsDialog Caption = 'Stop List Addresses' ClientHeight = 415 ClientWidth = 641 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsMDIChild Position = poScreenCenter Visible = True WindowState = wsMaximized OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 0 Width = 641 Height = 33 Align = alTop BevelOuter = bvNone TabOrder = 0 object Panel1: TPanel Left = 0 Top = 0 Width = 641 Height = 31 Align = alTop BevelOuter = bvNone TabOrder = 0 object SpeedButton6: TSpeedButton Left = 510 Top = 3 Width = 60 Height = 24 Caption = 'Report' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000 00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0 00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF 0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF 0033333337FFFFFF773333333000000003333333377777777333} NumGlyphs = 2 ParentFont = False Visible = False end object SpeedButton5: TSpeedButton Left = 151 Top = 3 Width = 68 Height = 24 Caption = 'Import' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 ParentFont = False OnClick = SpeedButton5Click end object SpeedButton1: TSpeedButton Left = 1 Top = 3 Width = 90 Height = 24 Hint = 'Table/Form' Caption = 'Table/Form' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 66010000424D6601000000000000760000002800000013000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE EEEEEEE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22 22E22EF22F222FE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0 0000EEEEEEEEEEFFFFFFFFE00000EE222E222EF222222FE00000EEEEEEEEEEFF FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEEEEEEEEEFFFFFFFFE00000EE22 222EEEF2222FEFE00000EEEEEEEEEEFFFFFFFFE00000EEEEEEEEEEEEEEEEEEE0 0000EEEEEEEEEEFFFFFFFFE00000EEE22E22EEF222F22FE00000EEEEEEEEEEFF FFFFFFE00000EEEEEEEEEEEEEEEEEEE00000EEE222E2222222222EE00000EEEE EEEEEEEEEEEEEEE00000} ParentFont = False OnClick = DBGridadressDblClick end object SpeedButton4: TSpeedButton Left = 91 Top = 3 Width = 60 Height = 24 Caption = 'Filter' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = SpeedButton4Click end object SBSavegroup: TSpeedButton Left = 219 Top = 3 Width = 80 Height = 24 Caption = 'Apply list' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentFont = False OnClick = SBSavegroupClick end object Gauge1: TGauge Left = 0 Top = 0 Width = 299 Height = 27 Color = clNavy ForeColor = clAqua ParentColor = False Progress = 0 Visible = False end object DBNavigator2: TDBNavigator Left = 427 Top = 3 Width = 80 Height = 24 DataSource = DSadress VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast] Flat = True TabOrder = 2 end object DBNavigator1: TDBNavigator Left = 302 Top = 3 Width = 125 Height = 24 DataSource = DSadressUP VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] Flat = True ParentShowHint = False ShowHint = True TabOrder = 1 BeforeAction = DBNavigator1BeforeAction end object Panel4: TPanel Left = 574 Top = 0 Width = 67 Height = 31 Align = alRight BevelOuter = bvNone TabOrder = 0 object BitBtn2: TExplorerButton Left = 0 Top = 1 Width = 65 Height = 26 NoFocusBitmap.Data = { 96010000424D9601000000000000760000002800000014000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777777777777777777700007777777777777777777700007777 7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000 0000777076666666666008770000777076666666666008770000777076666666 666008770000777076B666666660087700007770766666666660087700007770 76B66666666008770000777076B66666666008770000777076B6666666600877 0000777076666666666008770000777076666666666008770000777076666666 6660087700007770766666666660087700007770766666666660087700007770 7666666666600877000077707666666666600877000077707777777777770877 0000777000000000000008770000777777777777777777770000} Bitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Caption = 'Close' DisabledBitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Layout = blBitmapLeft Options = [boMonoDisplay, boPopupMark, boShowBevel] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClick = BitBtn2Click ParentFont = False IBitmap = { 424D560A00000000000036000000280000001F0000001B000000010018000000 0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000 BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF 000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000 0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000 FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000 BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000 000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000} end end end end object Panel3: TPanel Left = 0 Top = 33 Width = 641 Height = 382 Align = alClient BevelOuter = bvNone TabOrder = 1 object Splitter1: TSplitter Left = 638 Top = 0 Width = 3 Height = 382 Cursor = crHSplit Align = alRight end object Label1: TLabel Left = 8 Top = 104 Width = 61 Height = 13 Caption = 'Last Name' end object Label3: TLabel Left = 8 Top = 131 Width = 52 Height = 13 Caption = 'Company' end object Label4: TLabel Left = 10 Top = 26 Width = 35 Height = 13 Caption = 'E.mail' end object Label2: TLabel Left = 8 Top = 77 Width = 61 Height = 13 Caption = 'First Name' end object Image1: TImage Left = 192 Top = 288 Width = 105 Height = 105 Picture.Data = {} Visible = False end object Label5: TLabel Left = 8 Top = 158 Width = 65 Height = 13 Caption = 'Description' end object Label13: TLabel Left = 10 Top = 50 Width = 26 Height = 13 Caption = 'URL' end object DBEdit6: TDBEdit Left = 86 Top = 50 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'URL' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 end object DBEdit5: TDBEdit Left = 86 Top = 154 Width = 443 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'Description' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object DBEdit4: TDBEdit Left = 86 Top = 24 Width = 289 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'HomeEMail' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object DBEdit3: TDBEdit Left = 86 Top = 128 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'Company' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object DBEdit2: TDBEdit Left = 86 Top = 101 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'LastName' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object DBEdit1: TDBEdit Left = 86 Top = 75 Width = 361 Height = 21 BorderStyle = bsNone Color = 14935011 DataField = 'FirstName' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object DBRadioGroup1: TDBRadioGroup Left = 382 Top = 17 Width = 223 Height = 30 Columns = 3 DataField = 'TypeAdress' DataSource = DSadressUP Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'e.mail ' 'cc ' 'bcc') ParentFont = False TabOrder = 1 Values.Strings = ( '0' '1' '2') end object DBGridadress: TDBGrid Left = 0 Top = 0 Width = 638 Height = 382 Align = alClient BorderStyle = bsNone DataSource = DSadress Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 6 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = DBGridadressDrawDataCell OnDblClick = DBGridadressDblClick OnKeyDown = DBGridadressKeyDown end object ToList: TListBox Tag = 1 Left = 297 Top = 52 Width = 24 Height = 155 ItemHeight = 13 Style = lbOwnerDrawFixed TabOrder = 7 Visible = False end end object Tadress: TTable Filtered = True DatabaseName = 'Vistamail' IndexFieldNames = 'PosA' TableName = 'liststop' TableType = ttParadox Left = 462 Top = 244 object TadressHomeEMail: TStringField DisplayWidth = 20 FieldName = 'HomeEMail' Size = 50 end object TadressPosA: TIntegerField FieldName = 'PosA' Visible = False end object TadressTypeAdress: TSmallintField FieldName = 'TypeAdress' Visible = False end end object DSadress: TDataSource DataSet = Qadress Left = 486 Top = 220 end object QadressUp: TQuery DatabaseName = 'Vistamail' Left = 514 Top = 292 end object DSadressUP: TDataSource DataSet = QueryUp Left = 536 Top = 209 end object QueryUp: TQuery AfterInsert = QueryUpAfterInsert BeforeEdit = QueryUpBeforeEdit BeforePost = QueryUpBeforePost AfterDelete = QueryUpAfterDelete DatabaseName = 'VistaMail' RequestLive = True SQL.Strings = ( 'select * from ListStop where PosA=:a0') Params.Data = {0100010002613000030400000000000000} Left = 560 Top = 247 end object Qadress: TQuery Active = True DatabaseName = 'Vistamail' SQL.Strings = ( 'select * from ListStop') Left = 440 Top = 300 object QadressVybor: TBooleanField DisplayLabel = 'Type' FieldName = 'Vybor' Origin = '"adress5.DB".Vybor' end object QadressHomeEMail: TStringField Tag = 1 DisplayLabel = 'E.mail' DisplayWidth = 20 FieldName = 'HomeEMail' Origin = '"adress5.DB".HomeEMail' Size = 50 end object QadressFirstName: TStringField Tag = 1 DisplayWidth = 20 FieldName = 'FirstName' Origin = '"adress5.DB".FirstName' Size = 40 end object QadressLastName: TStringField Tag = 1 DisplayLabel = 'Last Name' DisplayWidth = 20 FieldName = 'LastName' Origin = '"adress5.DB".LastName' Size = 40 end object QadressURL: TStringField Tag = 1 DisplayWidth = 25 FieldName = 'URL' Origin = '"adress5.DB".PosA' Size = 255 end object QadressCompany: TStringField Tag = 1 DisplayWidth = 35 FieldName = 'Company' Origin = '"adress5.DB".Company' Size = 50 end object QadressDescription: TStringField Tag = 1 DisplayLabel = 'Note' DisplayWidth = 30 FieldName = 'Description' Origin = '"adress5.DB".Description' Size = 60 end object QadressTypeAdress: TSmallintField DisplayLabel = 'TypeAddress' FieldName = 'TypeAdress' Origin = '"adress5.DB".TypeAdress' Visible = False end object QadressLN: TStringField FieldName = 'LN' Origin = '"adress5.DB".LN' Visible = False Size = 1 end object QadressPosA: TIntegerField FieldName = 'PosA' Origin = '"adress5.DB".PosA' Visible = False end object QadressFN: TStringField FieldName = 'FN' Origin = '"adress5.DB".FN' Visible = False Size = 1 end object QadressFComp: TStringField FieldName = 'FComp' Origin = '"adress5.DB".FComp' Visible = False Size = 1 end end object DSGroup: TDataSource Left = 386 Top = 286 end object TadressA: TTable Filtered = True DatabaseName = 'Vistamail' IndexFieldNames = 'PosA' TableName = 'Adress5' TableType = ttParadox Left = 414 Top = 244 object TadressAPosA: TIntegerField FieldName = 'PosA' end object TadressAStopList: TBooleanField FieldName = 'StopList' end object TadressAHomeEMail: TStringField FieldName = 'HomeEMail' Size = 50 end object TadressABlockAdress: TBooleanField FieldName = 'BlockAdress' end end end